home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / util / rexx / FWCalendar.lha / gui4cli.lha / Gui4Cli / Dir / dir.user < prev    next >
Encoding:
Text File  |  1998-07-06  |  1.2 KB  |  73 lines
  1. G4C
  2.  
  3. ; USER GUI
  4.  
  5. ; This is a gui you can use to attach all the guis you make, or
  6. ; use it as a program launcher, or as what ever...
  7.  
  8. ; The file is dir/dir.user
  9.  
  10. ; Change it by attaching commands to the various buttons defined
  11. ; below..
  12.  
  13.  
  14. ; ============================= Global commands (leave them alone)
  15.  
  16. WinBig 0 0 160 105 ""
  17. WinType 00001000
  18. winonwin Dir.g3 0 0 
  19. varpath dir.gc/find.gc/fsearch.gc     ; you may need to expand your path here...
  20.  
  21. xOnRMB 
  22. guiclose Dir.user
  23.  
  24. xOnInactive
  25. guiclose Dir.user
  26.  
  27. xOnLoad
  28. guiopen dir.user
  29.  
  30. xOnReload
  31. guiopen dir.user
  32.  
  33.  
  34. ;================================ buttons (left bank) - Change them!
  35.  
  36. xbutton 0  0 80 15 "<<"     ; takes you back to the previous gui
  37. guiopen dir.g3
  38. guiclose dir.user
  39.  
  40. xbutton 0 15 80 15 ''
  41.  
  42. xbutton 0 30 80 15 ''
  43.  
  44. xbutton 0 45 80 15 ''
  45.  
  46. xbutton 0 60 80 15 ''
  47.  
  48. xbutton 0 75 80 15 ''
  49.  
  50. xbutton 0 90 80 15 ''
  51.  
  52. ; ------------------ Buttons right bank
  53.  
  54. xbutton 80  0 80 15 Click
  55.  
  56. xbutton 80 15 80 15 HERE!
  57. ; this will load & display this file - delete these lines when you expand.
  58. extract dir.user guipath path
  59. joinfile $path dir.user path
  60. *FILENAME = $path
  61. guiload guis:tools/read.gc
  62.  
  63. xbutton 80 30 80 15 ""
  64.  
  65. xbutton 80 45 80 15 ""
  66.  
  67. xbutton 80 60 80 15 ''
  68.  
  69. xbutton 80 75 80 15 ""
  70.  
  71. xbutton 80 90 80 15 ""
  72.  
  73.